home *** CD-ROM | disk | FTP | other *** search
/ This Disc Bytes! / Power Computing - The Disc 2 - This Disc Bytes.ISO / mac / CodeWarrior 7 Lite for 68K / MacOS Examples / PowerPlant PPob Demo / PPobDemo.r < prev    next >
Text File  |  1994-06-16  |  4KB  |  179 lines
  1. #include $$Shell("RIncludes") "PowerPlant.r"
  2.  
  3.  
  4. resource 'PPob' (2000) { {
  5.  
  6.     ObjectData { Window {
  7.         2000, regular,
  8.         hasCloseBox, hasTitleBar, noResize, noSizeBox, noZoom, hasShowNew,
  9.         enabled, hasTarget, noGetSelectClick, noHideOnSuspend, noDelaySelect,
  10.         hasEraseOnUpdate,
  11.         100, 100, screenSize, screenSize, screenSize, screenSize, 0
  12.     } },
  13.     
  14.     BeginSubs {},
  15.     
  16.         ObjectData { Caption {
  17.             2001, {250, 16}, visible, disabled,
  18.             unbound, unbound, unbound, unbound,
  19.             6, 6, 0, defaultSuperView,
  20.             "EditFields and ListBox with TabGroup", 130
  21.         } },
  22.         
  23.         ObjectData { TabGroup {} },
  24.     
  25.         BeginSubs {},
  26.         
  27.             ObjectData { EditField {
  28.                 2011, {100, 20}, visible, enabled,
  29.                 unbound, unbound, unbound, unbound,
  30.                 10, 25, 0, defaultSuperView,
  31.                 "One", 128, 8, hasBox, noWordWrap, printingCharFilter
  32.             } },
  33.         
  34.             ClassAlias { 'MyEd' },
  35.             ObjectData { EditField {
  36.                 2012, {100, 20}, visible, enabled,
  37.                 unbound, unbound, unbound, unbound,
  38.                 10, 49, 0, defaultSuperView,
  39.                 "ClassAlias", 128, 12, hasBox, noWordWrap, printingCharFilter
  40.             } },
  41.         
  42.             ObjectData { EditField {
  43.                 2013, {100, 36}, visible, enabled,
  44.                 unbound, unbound, unbound, unbound,
  45.                 10, 73, 0, defaultSuperView,
  46.                 "This one word wraps", 128, 64, hasBox, hasWordWrap, printingCharFilter
  47.             } },
  48.             
  49.         
  50.             ObjectData { ListBox {
  51.                 2014, {150, 82}, visible, enabled,
  52.                 unbound, unbound, unbound, unbound,
  53.                 150, 25, 0, defaultSuperView,
  54.                 noHorizScroll, hasVertScroll, noGrowBox, hasFocusBox,
  55.                 0, 128, 0,
  56.                 {"Alpha", "Beta", "Gamma", "Delta", "Epsilon", "Zeta", "Eta"}
  57.             } },
  58.  
  59.         EndSubs {},
  60.  
  61.         ObjectData { StdRadioButton {
  62.             2021, {100, 16}, visible, enabled,
  63.             unbound, unbound, unbound, unbound,
  64.             10, 150, 0, defaultSuperView,
  65.             0, unchecked, 130, "Radio One", 0
  66.         } },
  67.     
  68.         ObjectData { StdRadioButton {
  69.             2022, {100, 16}, visible, enabled,
  70.             unbound, unbound, unbound, unbound,
  71.             10, 170, 0, defaultSuperView,
  72.             0, checked, useSystemFont, "Radio Two", 0
  73.         } },
  74.     
  75.         ObjectData { StdRadioButton {
  76.             2023, {100, 16}, visible, enabled,
  77.             unbound, unbound, unbound, unbound,
  78.             10, 190, 0, defaultSuperView,
  79.             0, unchecked, useSystemFont, "Radio Three", 0
  80.         } },
  81.         
  82.         ObjectData { RadioGroup {
  83.             {2021, 2022, 2023}
  84.         } },
  85.         
  86.         ObjectData { StdCheckBox {
  87.             2031, {100, 16}, visible, enabled,
  88.             unbound, unbound, unbound, unbound,
  89.             10, 220, 0, defaultSuperView,
  90.             0, unchecked, useSystemFont, "CheckBox", 0
  91.         } },
  92.         
  93.         ObjectData { StdButton {
  94.             2033, {100, 16}, visible, enabled,
  95.             unbound, unbound, unbound, unbound,
  96.             10, 250, 0, defaultSuperView,
  97.             0, 130, "StdButton", 0
  98.         } },
  99.         
  100.         ObjectData { StdButton {
  101.             2034, {59, 20}, visible, enabled,
  102.             unbound, unbound, unbound, unbound,
  103.             10, 274, 0, defaultSuperView,
  104.             0, useSystemFont, "OK", 0
  105.         } },
  106.         
  107.         ObjectData { StdPopupMenu {
  108.             2041, {250, 20}, visible, enabled,
  109.             unbound, unbound, unbound, unbound,
  110.             10, 305, 0, defaultSuperView,
  111.             0, 255, 150, 72, defaultPopup, useSystemFont, "Speed:", 0, 3
  112.         } },
  113.         
  114.         ObjectData { StdPopupMenu {
  115.             2042, {250, 20}, visible, enabled,
  116.             unbound, unbound, unbound, unbound,
  117.             10, 330, 0, defaultSuperView,
  118.             0, 0, 800, 30, addResource, 130, "Font:", 'FONT', 1
  119.         } },
  120.         
  121.         ObjectData { Button {
  122.             2043, {32, 32}, visible, enabled,
  123.             unbound, unbound, unbound, unbound,
  124.             20, 370, 0, defaultSuperView,
  125.             0, 'ICN#', 3001, 3002
  126.         } },
  127.         
  128.         ObjectData { Scroller {
  129.             2050, {200, 120}, visible, enabled,
  130.             bound, bound, bound, bound,
  131.             350, 10, 0, defaultSuperView,
  132.             0, 0, 0, 0, 0, 0, noReconcileOverhang,
  133.             36, 15, 0, 15, 2051
  134.         } },
  135.         
  136.         BeginSubs {},
  137.         
  138.             ObjectData { TextEdit {
  139.                 2051, {183, 103}, visible, enabled,
  140.                 bound, bound, bound, bound,
  141.                 1, 1, 0, defaultSuperView,
  142.                 0, 0, 0, 0, 0, 0, noReconcileOverhang,
  143.                 noMultiStyle, noEdit, noSelect, hasWordWrap,
  144.                 131, 128
  145.             } },
  146.         
  147.         EndSubs {},
  148.         
  149.         ObjectData { Scroller {
  150.             2060, {200, 160}, visible, enabled,
  151.             bound, bound, bound, bound,
  152.             350, 160, 0, defaultSuperView,
  153.             0, 0, 0, 0, 0, 0, noReconcileOverhang,
  154.             0, 15, 0, 15, 2061
  155.         } },
  156.         
  157.         BeginSubs {},
  158.         
  159.             ObjectData { Picture {
  160.                 2061, {183, 143}, visible, enabled,
  161.                 bound, bound, bound, bound,
  162.                 1, 1, 0, defaultSuperView,
  163.                 0, 0, 10, 20, 1, 1, noReconcileOverhang,
  164.                 128
  165.             } },
  166.         
  167.         EndSubs {},
  168.         
  169.         ObjectData { Table {
  170.             2070, {200, 60}, visible, enabled,
  171.             bound, bound, bound, bound,
  172.             350, 350, 0, defaultSuperView,
  173.             0, 0, 0, 0, 20, 50, noReconcileOverhang,
  174.             3, 4, 20, 50, 0
  175.         } },
  176.  
  177.     EndSubs {}
  178. } };
  179.